<%
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then
response.write "<script>alert('վֹIP,˳');window.close();</script>"
response.end
end if
system_ip = Request.ServerVariables("REMOTE_ADDR")
system_ll = Request.ServerVariables("HTTP_REFEERE")

Public Sub fiship(uip)
         Dim tip
         tip = Split(uip, ".")
          If Not IsArray(tip) Then un_ip = 1
          If UBound(tip) < 3 Then un_ip = 1
          If Not IsNumeric(tip(0)) Or Not IsNumeric(tip(1)) Or Not IsNumeric(tip(2)) Or Not IsNumeric(tip(3)) Then un_ip = 1
          If CInt(tip(0)) > 255 Or CInt(tip(1)) > 255 Or CInt(tip(2)) > 255 Or CInt(tip(3)) > 255 Then un_ip = 1
End Sub
Public Function fishcip(sip)
    Dim tip
    tip = Split(sip, ".")
    If CInt(tip(0)) < 128 Then
        fishcip = CInt(tip(0)) * 256 * 256 * 256 + CInt(tip(1)) * 256 * 256 + CInt(tip(2)) * 256 + CInt(tip(3))
    Else
        fishcip = CInt(tip(0)) * 256 * 256 * 256 + CInt(tip(1)) * 256 * 256 + CInt(tip(2)) * 256 + CInt(tip(3)) - 4294967296
    End If
End Function
Public Function fishadmincip(sip)
    tip = CStr(sip)
    sip1 = Left(tip, CInt(InStr(tip, ".") - 1))
    tip = Mid(tip, CInt(InStr(tip, ".") + 1))
    sip2 = Left(tip, CInt(InStr(tip, ".") - 1))
    tip = Mid(tip, CInt(InStr(tip, ".") + 1))
    sip3 = Left(tip, CInt(InStr(tip, ".") - 1))
    sip4 = Mid(tip, CInt(InStr(tip, ".") + 1))
    If CInt(sip1) < 128 Then
    fishadmincip = CInt(sip1) * 256 * 256 * 256 + CInt(sip2) * 256 * 256 + CInt(sip3) * 256 + CInt(sip4)
    Else
    fishadmincip = CInt(sip1) * 256 * 256 * 256 + CInt(sip2) * 256 * 256 + CInt(sip3) * 256 + CInt(sip4) - 4294967296
    End If
End Function

Public Sub Check_ip()
If siteipkg = 1 Then
Call fiship(system_ip)
starts = Cms.tj("jb_lockip", "start", "start<>0 and (" & fishcip(system_ip) & " between startip and endip)")
If starts = 1 Then
Response.Write "Բ,IPѱ.,ϵ!Sorry, your IP has been locked. If in doubt, please contact us!"
Response.End
End If
End If
End Sub
%>